Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/plymrpht/polymorp.frm

Text File | 1998-05-28 | 16KB | 509 lines

VERSION 5.00
Object = "{FCF7C825-F618-11D1-BAFA-444553540000}#1.0#0"; "POLYMORPH.OCX"
Begin VB.Form PolyMorphDemo
   BorderStyle     =   1  'Fixed Single
   Caption         =   "PolyMorph Demonstration Application"
   ClientHeight    =   5595
   ClientLeft      =   885
   ClientTop       =   1125
   ClientWidth     =   8655
   Icon            =   "PolyMorphDemo.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   5595
   ScaleWidth      =   8655
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command5
      Caption         =   "More Info"
      Height          =   420
      Left            =   1455
      TabIndex        =   37
      Top             =   5145
      Width           =   975
   End
   Begin VB.CommandButton Command4
      Caption         =   "&About"
      Height          =   420
      Left            =   2670
      TabIndex        =   36
      Top             =   5025
      Width           =   975
   End
   Begin VB.CommandButton Command3
      Caption         =   "&Done"
      Height          =   420
      Left            =   3885
      TabIndex        =   35
      Top             =   5145
      Width           =   975
   End
   Begin VB.Frame frame69
      Caption         =   "Property Sheet for Sample PolyText Control"
      Height          =   3900
      Left            =   45
      TabIndex        =   2
      Top             =   1065
      Width           =   6345
      Begin VB.OptionButton Option1
         Caption         =   "Behaviour"
         Height          =   360
         Left            =   90
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   255
         Value           =   -1  'True
         Width           =   1185
      End
      Begin VB.OptionButton Option2
         Caption         =   "Validation"
         Height          =   360
         Left            =   1305
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   255
         Width           =   1185
      End
      Begin VB.Frame Frame1
         Caption         =   "Behaviour"
         Height          =   3240
         Left            =   75
         TabIndex        =   5
         Top             =   600
         Width           =   6210
         Begin VB.ComboBox txtButton_Style
            Height          =   315
            ItemData        =   "PolyMorphDemo.frx":030A
            Left            =   1485
            List            =   "PolyMorphDemo.frx":031A
            Style           =   2  'Dropdown List
            TabIndex        =   13
            Top             =   300
            Width           =   2715
         End
         Begin VB.ComboBox txtOn_Entry
            Height          =   315
            ItemData        =   "PolyMorphDemo.frx":0366
            Left            =   1470
            List            =   "PolyMorphDemo.frx":0373
            Style           =   2  'Dropdown List
            TabIndex        =   12
            Top             =   975
            Width           =   2700
         End
         Begin VB.CheckBox chkShowErrors
            Alignment       =   1  'Right Justify
            Caption         =   "ShowErrors"
            Height          =   285
            Left            =   150
            TabIndex        =   11
            ToolTipText     =   "Highlight Content if data is invalid"
            Top             =   2490
            Value           =   1  'Checked
            Width           =   1290
         End
         Begin VB.TextBox txtMsgError
            Height          =   330
            Left            =   1470
            TabIndex        =   10
            Top             =   2055
            Width           =   2700
         End
         Begin VB.CheckBox chkShow_Time
            Alignment       =   1  'Right Justify
            Caption         =   "Show Time"
            Height          =   285
            Left            =   375
            TabIndex        =   9
            ToolTipText     =   "Show a time selection on the Date Pop-up"
            Top             =   630
            Width           =   1290
         End
         Begin VB.TextBox txtToolTipText
            Height          =   330
            Left            =   1470
            TabIndex        =   8
            Top             =   1680
            Width           =   2700
         End
         Begin VB.CheckBox chkAutoComplete
            Alignment       =   1  'Right Justify
            Caption         =   "AutoComplete"
            Height          =   285
            Left            =   150
            TabIndex        =   7
            ToolTipText     =   "Find closest match in the list"
            Top             =   2850
            Width           =   1290
         End
         Begin VB.TextBox txtDisplayFormat
            Height          =   330
            Left            =   1470
            TabIndex        =   6
            Top             =   1320
            Width           =   2700
         End
         Begin VB.Label lblButton_Style
            Caption         =   "Button Style:"
            Height          =   240
            Left            =   150
            TabIndex        =   18
            ToolTipText     =   "Which buttons do you want to use"
            Top             =   330
            Width           =   2700
         End
         Begin VB.Label lblMsgError
            Caption         =   "Error Text"
            Height          =   240
            Left            =   150
            TabIndex        =   17
            ToolTipText     =   "Text to Msg if invalid . Leave blank for no message"
            Top             =   2100
            Width           =   2700
         End
         Begin VB.Label lblToolTipText
            Caption         =   "ToolTipText:"
            Height          =   240
            Left            =   150
            TabIndex        =   16
            ToolTipText     =   "Tooltip"
            Top             =   1770
            Width           =   2700
         End
         Begin VB.Label lblDisplayFormat
            Caption         =   "DisplayFormat:"
            Height          =   240
            Left            =   150
            TabIndex        =   15
            ToolTipText     =   "Standard VB Format$ for displaying content"
            Top             =   1365
            Width           =   2700
         End
         Begin VB.Label lblOn_Entry
            Caption         =   "On_Entry:"
            Height          =   240
            Left            =   150
            TabIndex        =   14
            ToolTipText     =   "Cursor Position when control gets focus"
            Top             =   1005
            Width           =   2700
         End
      End
      Begin VB.Frame Frame2
         Caption         =   "Validation"
         Height          =   3240
         Left            =   75
         TabIndex        =   19
         Top             =   600
         Width           =   6210
         Begin VB.ComboBox txtData_Type
            Height          =   315
            ItemData        =   "PolyMorphDemo.frx":03BB
            Left            =   1410
            List            =   "PolyMorphDemo.frx":03DA
            Style           =   2  'Dropdown List
            TabIndex        =   30
            Top             =   300
            Width           =   2700
         End
         Begin VB.CheckBox chkRequired
            Alignment       =   1  'Right Justify
            Caption         =   "Required"
            Height          =   285
            Left            =   135
            TabIndex        =   29
            Top             =   720
            Width           =   1500
         End
         Begin VB.TextBox txtMin
            Height          =   330
            Left            =   1410
            TabIndex        =   28
            Top